home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DOSIT54.ARC / _DOSIT SEW WRITE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  56 lines
  1. 0 GOSUB 1000
  2. 1 POKE53265,27
  3. 2 PRINT:INPUT"NAME OF FILE";N$
  4. 4 POKE53272,22
  5. 5 POKE 53281,0:POKE53280,0:PRINT""
  6. 10 PRINT"[147][202]AMES [208]AUL [193]MYX":FORX=1TO1500:NEXTX
  7. 15 PRINT"[145][155][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
  8. 20 PRINT"[145][152][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
  9. 25 PRINT"[145][151][202]AMES [208]AUL [193]MYX":FORX=1TO40:NEXTX
  10. 30 PRINT"[147]":FORX=1TO1500:NEXT X
  11. 35 PRINT"[147][208]RESENTS":FORX=1TO1500:NEXTX
  12. 40 PRINT"[145][155][208]RESENTS":FORX=1TO40:NEXTX
  13. 45 PRINT"[145][152][208]RESENTS":FORX=1TO40:NEXTX
  14. 50 PRINT"[145][151][208]RESENTS":FORX=1TO40:NEXTX
  15. 55 PRINT"[147]":FORX=1TO1500:NEXTX
  16. 60 PRINT"[147][196]OSIT SEQ FILE PROGRAM":FORX=1TO1500:NEXTX
  17. 65 PRINT"[155][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
  18. 70 PRINT"[152][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
  19. 75 PRINT"[151][145][196]OSIT SEQ FILE PROGRAM":FORX=1TO40:NEXTX
  20. 80 PRINT"[147]":FORX=1TO1500:NEXTX:POKE53281,6:POKE53280,14:POKE53272,23
  21. 105 PRINT"[147]ALL YOU HAVE TO DO IS PUSH KEYS";
  22. 120 PRINT"PRESS ANY KEY"
  23. 125 GET A$:IF A$=""THEN GOTO 125
  24. 130 PRINT"[147]TO STOP HIT RETURN ON A BLANK LINE.    TO ENTER WHAT YOU TYPED P";
  25. 131 PRINT"RESS RETURN."
  26. 135 PRINT"PRESS ANY KEY"
  27. 140 GET A$:IF A$=""THEN GOTO 140
  28. 145 PRINT"[147]";
  29. 150 OPEN 5,8,5,"O:"+N$+",S,W"
  30. 154 L$=""
  31. 155 GETA$:IFA$=CHR$(13)ANDL$=""THENGOTO185
  32. 156 IFA$=""THENGOTO155
  33. 160 IFA$=CHR$(13)ANDL$<>""THENGOTO190
  34. 165 IFLEN(L$)=39THENGOTO195
  35. 170 IFA$=""ORA$="[147]"ORA$="[145]"ORA$=""ORA$=""ORA$="[157]"ORA$="[133]"ORA$="[137]"THENGOTO155
  36. 175 IFA$="[134]"ORA$="[138]"ORA$="[135]"ORA$="[139]"ORA$="[136]"ORA$="[140]"THENGOTO155
  37. 176 IFA$="[144]"ORA$=""ORA$=""ORA$="[159]"ORA$="[156]"ORA$=""ORA$=""ORA$="[158]"THENGOTO155
  38. 177 IFA$=""ORA$="[146]"ORA$="[129]"ORA$="[149]"ORA$="[150]"ORA$="[151]"ORA$="[152]"ORA$="[153]"THENGOTO155
  39. 178 IFA$="[154]"ORA$="[155]"THENGOTO155
  40. 179 IFA$=CHR$(20)ANDLEN(L$)=0THENGOTO155
  41. 180 IFA$=CHR$(20)THENL$=LEFT$(L$,LEN(L$)-1):PRINTA$;:GOTO155
  42. 181 PRINTA$;:L$=L$+A$:GOTO155
  43. 185 CLOSE5:PRINTCHR$(9):GOTO2000
  44. 190 PRINT#5,L$:L$="":PRINTCHR$(13);:GOTO155
  45. 195 GETA$:IFA$=CHR$(20)THENL$=LEFT$(L$,LEN(L$)-1):PRINTA$;:GOTO155
  46. 200 IFA$=CHR$(13)THENPRINT#5,L$:L$="":PRINT"";:GOTO155
  47. 205 GOTO 195
  48. 1000 PRINT"";
  49. 1001 FORI=1TO999
  50. 1002 PRINT" ";
  51. 1003 NEXT I
  52. 1004 RETURN
  53. 2000 PRINT"INSERT DOSIT DISK IN DRIVE AND PRESS A KEY"
  54. 2001 GETA$:IFA$=""THEN2001
  55. 2002 LOAD"BOOT",8,1
  56.